home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagn_r.zip
/
POINTERS.SWG
/
0006_PTR-MEM.PAS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
467b
|
26 lines
Program Test_Pointers;
Type
Array_Pointer = ^MyArray;
MyArray = Array[1..10] of String;
Var
MyVar : Array_Pointer;
begin
Writeln('Memory beFore initializing Variable : ',MemAvail);
New(MyVar);
Writeln('Memory after initializiation : ',MemAvail);
MyVar^[1] := 'Hello';
MyVar^[2] := 'World!';
Writeln(MyVar^[1], ' ', MyVar^[2]);
Dispose(MyVar);
Writeln('Memory after Variable memory released : ',MemAvail);
end.